home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 015 / fx80bar.bas < prev    next >
Encoding:
BASIC Source File  |  1985-05-31  |  5.0 KB  |  109 lines
  1. 10 '   FX80BAR.BAS               01/24/84          STONE & COLLETTE
  2. 20 '***************************************************************************
  3. 30 '   Experiments with the variable attribute byte in down-loaded characters,
  4. 40 '      particularly with bar code characters.
  5. 50 '***************************************************************************
  6. 60 '*** INITIAL PRINTER SET-UP ***
  7. 70 '******************************
  8. 80 LPRINT CHR$(27)"p1";                  'PROPORTIONAL MODE MUST BE ON !
  9. 90 LPRINT CHR$(15);                      'CONDENSED MODE
  10. 100 LPRINT CHR$(27)"A"CHR$(4);            'SET LINE SPACING TO 7/72
  11. 110 LPRINT CHR$(27)"U1";                 'UNIDIRECTIONAL MODE
  12. 120 '**************************************************************************
  13. 130 '*** INITIALIZE CUSTOM RAM CHARACTERS ***
  14. 140 '****************************************
  15. 150 LPRINT CHR$(27)"%"CHR$(1)CHR$(0);    'ACTIVATES RAM
  16. 160 LPRINT CHR$(27)"&"CHR$(0)"ap";       'ALLOCATES RAM CHAR'S a THRU d
  17. 170 FOR Y=1 TO 12                        'a thru p = 16 char's
  18. 180   FOR X=1 TO 16                      '12 DATA ITEMS FOR EACH CHAR
  19. 190      READ N
  20. 200      LPRINT CHR$(N);                 'STORES CHAR'S INTO PRINTER RAM
  21. 210   NEXT X
  22. 220 NEXT Y
  23. 230 '*************************************************************************
  24. 240 '*** DATA FOR BAR-CODE SEGMENTS ***
  25. 250 '**********************************
  26. 260 '
  27. 270 DATA 139,255,000,255,000,255,000,000,000,255,000,000        :'1A-a
  28. 280 DATA 139,255,000,000,000,255,000,255,000,255,000,000        :'2A-b
  29. 290 DATA 139,255,000,255,000,255,000,000,000,255,000,255        :'3A-c
  30. 300 DATA 139,255,000,000,000,255,000,000,000,000,000,000        :'4A-d
  31. 310 DATA 139,255,000,000,000,255,000,000,000,255,000,255        :'DA-e
  32. 320 DATA 139,255,000,000,000,255,000,000,000,255,000,000        :'GA-f
  33. 330 DATA 139,000,000,000,000,255,000,000,000,255,000,000        :'1B-g
  34. 340 DATA 139,255,000,000,000,000,000,000,000,255,000,000        :'3B-h
  35. 350 DATA 139,000,000,000,000,255,000,255,000,255,000,000        :'5B-i
  36. 360 DATA 139,000,000,000,000,255,000,000,000,255,000,255        :'8B-j
  37. 370 DATA 139,255,000,255,000,255,000,000,000,000,000,000        :'EB-k
  38. 380 DATA 139,255,000,000,000,000,000,000,000,255,000,255        :'HB-l
  39. 390 DATA 139,000,000,000,000,255,000,000,000,000,000,000        :'$B-m
  40. 400 DATA 135,255,000,255,000,255,000,000,000,000,000,000        :'1C-n
  41. 410 DATA 135,255,000,000,000,255,000,000,000,000,000,000        :'3C-o
  42. 420 DATA 135,000,000,000,000,255,000,000,000,000,000,000        :'MC-p
  43. 430 '************************************************************************
  44. 440 '*** DEFINE BAR-CODED CHARACTERS ***
  45. 450 '***********************************
  46. 460 '************************************************************************
  47. 470 '*** PRINT PROGRAM ***
  48. 480 '*********************
  49. 490 '
  50. 500 '************************************************************************
  51. 510 '*** SAVE ROUTINE ***
  52. 520 '***********************************************
  53. 530 CLEAR 500
  54. 540 CLS
  55. 550 INPUT "ENTER YOUR MESSAGE:";M$
  56. 560 P$="hco"
  57. 570 FOR X=1 TO LEN(M$)
  58. 580 TEST$=MID$(M$,X,1)
  59. 590 IF TEST$="A" THEN P$=P$+"ahn"
  60. 600 IF TEST$="B" THEN P$=P$+"bhn"
  61. 610 IF TEST$="C" THEN P$=P$+"cdo"
  62. 620 IF TEST$="D" THEN P$=P$+"ehn"
  63. 630 IF TEST$="E" THEN P$=P$+"ako"
  64. 640 IF TEST$="F" THEN P$=P$+"bko"
  65. 650 IF TEST$="G" THEN P$=P$+"fin"
  66. 660 IF TEST$="H" THEN P$=P$+"alo"
  67. 670 IF TEST$="I" THEN P$=P$+"blo"
  68. 680 IF TEST$="J" THEN P$=P$+"elo"
  69. 690 IF TEST$="K" THEN P$=P$+"adn"
  70. 700 IF TEST$="L" THEN P$=P$+"bdn"
  71. 710 IF TEST$="M" THEN P$=P$+"cfp"
  72. 720 IF TEST$="N" THEN P$=P$+"edn"
  73. 730 IF TEST$="O" THEN P$=P$+"aap"
  74. 740 IF TEST$="P" THEN P$=P$+"bap"
  75. 750 IF TEST$="Q" THEN P$=P$+"fkn"
  76. 760 IF TEST$="R" THEN P$=P$+"abp"
  77. 770 IF TEST$="S" THEN P$=P$+"bbp"
  78. 780 IF TEST$="T" THEN P$=P$+"ebp"
  79. 790 IF TEST$="U" THEN P$=P$+"kfn"
  80. 800 IF TEST$="V" THEN P$=P$+"lfn"
  81. 810 IF TEST$="W" THEN P$=P$+"han"
  82. 820 IF TEST$="X" THEN P$=P$+"kao"
  83. 830 IF TEST$="Y" THEN P$=P$+"kbo"
  84. 840 IF TEST$="Z" THEN P$=P$+"lbo"
  85. 850 IF TEST$="1" THEN P$=P$+"agn"
  86. 860 IF TEST$="2" THEN P$=P$+"bgn"
  87. 870 IF TEST$="3" THEN P$=P$+"cho"
  88. 880 IF TEST$="4" THEN P$=P$+"dan"
  89. 890 IF TEST$="5" THEN P$=P$+"aio"
  90. 900 IF TEST$="6" THEN P$=P$+"bio"
  91. 910 IF TEST$="7" THEN P$=P$+"dbn"
  92. 920 IF TEST$="8" THEN P$=P$+"ajo"
  93. 930 IF TEST$="9" THEN P$=P$+"bjo"
  94. 940 IF TEST$="0" THEN P$=P$+"dco"
  95. 950 IF TEST$="$" THEN P$=P$+"hmo"
  96. 960 IF TEST$="/" THEN P$=P$+"hgp"
  97. 970 IF TEST$="+" THEN P$=P$+"hhp"
  98. 980 IF TEST$="%" THEN P$=P$+"dhp"
  99. 990 IF TEST$="-" THEN P$=P$+"hbn"
  100. 1000 IF TEST$="." THEN P$=P$+"keo"
  101. 1010 IF TEST$=" " THEN P$=P$+"leo"
  102. 1020 NEXT X
  103. 1030 P$=P$+"hco"
  104. 1040 P$=CHR$(34)+P$+CHR$(34)
  105. 1050 FOR R=1 TO 6:LPRINT P$:NEXT
  106. 1060 INPUT" PRESS ENTER TO RETURN  ";AA:RUN
  107. 1030 P$=P$+"hco"
  108. 1040 P$=CHR$(34)+P$+CHR$(34)
  109. 1050 F